VERSION 5.00
Begin VB.Form RiskReductForm 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   0  'None
   Caption         =   "Form1"
   ClientHeight    =   9000
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12000
   LinkTopic       =   "Form1"
   ScaleHeight     =   9000
   ScaleWidth      =   12000
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  'Windows Default
   WindowState     =   2  'Maximized
   Begin VCT.ClientPlanCtrl PLAN 
      Height          =   3855
      Left            =   300
      TabIndex        =   3
      Top             =   180
      Width           =   11415
      _ExtentX        =   20135
      _ExtentY        =   6800
   End
   Begin VB.CommandButton Clear_Button 
      Caption         =   "Clear"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      TabIndex        =   2
      Top             =   4500
      Visible         =   0   'False
      Width           =   1935
   End
   Begin VB.CommandButton Next_Button 
      BackColor       =   &H00C0FFFF&
      Caption         =   "Next"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      MaskColor       =   &H00000000&
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   5520
      Width           =   1935
   End
   Begin VB.CommandButton Cancel_Button 
      BackColor       =   &H008080FF&
      Caption         =   "Cancel"
      BeginProperty Font 
         Name            =   "Arial Narrow"
         Size            =   20.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   735
      Left            =   9600
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   6540
      Width           =   1935
   End
   Begin VCT.TouchScreenListBox LB 
      Height          =   4575
      Left            =   840
      TabIndex        =   4
      Top             =   4140
      Width           =   8415
      _ExtentX        =   14843
      _ExtentY        =   8070
   End
End
Attribute VB_Name = "RiskReductForm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Cancel_Button_Click()
   VCTStageForm.Show
   Unload Me
End Sub

Private Sub Form_Load()
   PLAN.UpdateData
   PLAN.SetStar (2)
   Next_Button.Enabled = False
   LB.AddItem "None"
   LB.AddItem "Abstinence"
   LB.AddItem "Client will have one partner"
   LB.AddItem "Client will ask partner to be monogamous"
   LB.AddItem "Increase use of condoms"
   LB.AddItem "Reduce number of partners"
   LB.AddItem "Eliminate high risk partners"
   LB.AddItem "Change alcohol/drug use"
   LB.AddItem "Retest for HIV"
   LB.AddItem "Test partner for HIV"
   LB.AddItem "Attend Post Test Club"
   LB.AddItem "Disclose HIV Status"
   If ORGANIZATION = "LIGHTHOUSE" Then
      LB.AddItem "Attend PMTCT"
   End If
   LB.AddItem "Other"
End Sub

Private Sub LB_click()
   If ORGANIZATION = "LIGHTHOUSE" Then
      Select Case LB.ListIndex
         Case 0
            RRPLAN0 = "0"
            RRPLAN1 = "0"
            RRPLAN2 = "0"
            RRPLAN3 = "0"
            RRPLAN4 = "0"
            RRPLAN5 = "0"
            RRPLAN6 = "0"
            RRPLAN7 = "0"
            RRPLAN8 = "0"
            RRPLAN9 = "0"
            RRPLAN10 = "0"
            RRPLAN11 = "0"
            RRPLAN12 = "0"
            RRPLAN99 = "0"
            LB.Enabled = False
         Case 1
            RRPLAN1 = "1"
         Case 2
            RRPLAN2 = "1"
         Case 3
            RRPLAN3 = "1"
         Case 4
            RRPLAN4 = "1"
         Case 5
            RRPLAN5 = "1"
         Case 6
            RRPLAN6 = "1"
         Case 7
            RRPLAN7 = "1"
         Case 8
            RRPLAN8 = "1"
         Case 9
            RRPLAN9 = "1"
         Case 10
            RRPLAN10 = "1"
         Case 11
            RRPLAN11 = "1"
         Case 12
            RRPLAN12 = "1"
         Case 13
            RRPLAN99 = "1"
      End Select
   Else
      If ORGANIZATION = "MACRO" Then
         Select Case LB.ListIndex
            Case 0
               RRPLAN0 = "0"
               RRPLAN1 = "0"
               RRPLAN2 = "0"
               RRPLAN3 = "0"
               RRPLAN4 = "0"
               RRPLAN5 = "0"
               RRPLAN6 = "0"
               RRPLAN7 = "0"
               RRPLAN8 = "0"
               RRPLAN9 = "0"
               RRPLAN10 = "0"
               RRPLAN11 = "0"
               RRPLAN12 = "0"
               RRPLAN99 = "0"
               LB.Enabled = False
            Case 1
               RRPLAN1 = "1"
            Case 2
               RRPLAN2 = "1"
            Case 3
               RRPLAN3 = "1"
            Case 4
               RRPLAN4 = "1"
            Case 5
               RRPLAN5 = "1"
            Case 6
               RRPLAN6 = "1"
            Case 7
               RRPLAN7 = "1"
            Case 8
               RRPLAN8 = "1"
            Case 9
               RRPLAN9 = "1"
            Case 10
               RRPLAN10 = "1"
            Case 11
               RRPLAN11 = "1"
            Case 12
               RRPLAN99 = "1"
         End Select
       End If
   End If
   PLAN.UpdateData
   Next_Button.Enabled = True
End Sub

Private Sub Next_Button_Click()
   'set the value for RRPLAN0
   If RRPLAN1 = "1" Or RRPLAN2 = "1" Or RRPLAN3 = "1" Or RRPLAN4 = "1" Or RRPLAN5 = "1" Or RRPLAN6 = "1" Or RRPLAN7 = "1" Or RRPLAN8 = "1" Or RRPLAN9 = "1" Or RRPLAN10 = "1" Or RRPLAN11 = "1" Or RRPLAN12 = "1" Or RRPLAN99 = "1" Then
      RRPLAN0 = "1"
   Else
      RRPLAN0 = "0"
   End If

   ReferredToForm.Show
   Unload Me
End Sub
